<script>on mouseUpput bg fld "toppingNamesandLocs" into inforepeat with i = 1 to the number of lines in infoset cursor to busyset the loc of bg btn (item 1 of line i of info) to (item 2 of line i of info),(item 3 of line i of info)end repeatput the short name of bg btn id 22 into whichCardput (word 1 of line 1 of bg fld "c1" of card (whichCard)) into bg fld thePriceput empty into fld whoseOnPizzaend mouseUp</script>
<script>on openCardhide menuBarend openCardon closeCardshow menuBarend closeCardon updatePrice howMuch,onOrOff,offsetNumberif onOrOff is "Off" then multiply howMuch by -1add howMuch to field thePriceif onOrOff is "Off" then put empty into line offsetNumber of fld whoseOnPizzaelse put "•" into line offsetNumber of fld whoseOnPizzaend updatePriceon getIngredientglobal pizzaRect,Origin,padRect,ingredientListset numberFormat to 0.00if the loc of the target is within pizzaRect thenif Origin is not within pizzaRect thenupdatePrice (item (itemOffset(the short name of the target,ingredientList)) of bg fld priceList),on,(itemOffset(the short name of the target,ingredientList))end ifelseif Origin is not within padRect thenupdatePrice (item (itemOffset(the short name of the target,ingredientList)) of bg fld priceList),off,(itemOffset(the short name of the target,ingredientList))end ifend ifend getIngredienton getPrices whichCardrepeat with i = 1 to the number of lines in bg fld c1 of cd whichCardset cursor to busyput line i of bg fld c1 of cd whichCard into item i of prices1end repeatrepeat with i = 1 to the number of lines in bg fld c2 of cd whichCardset cursor to busyput line i of bg fld c2 of cd whichCard into item i of prices2end repeatrepeat with i = 1 to the number of lines in bg fld c3 of cd whichCardset cursor to busyput line i of bg fld c3 of cd whichCard into item i of prices3end repeatput prices1 & "," & prices2 & "," & prices3 into bg fld priceListlock screenput item 1 of prices1 into bg fld thePricerecalcPriceunlock screenend getPriceson recalcPriceset numberFormat to 0.00put item 1 of bg fld priceList into bg fld thePricerepeat with i = 1 to the number of lines in bg fld whoseOnPizzaif line i of fld whoseOnPizza is not empty then add item i of fld priceList to bg fld thePriceend repeatend recalcPriceon moveIngredientglobal Originput rect of the target into theRectput loc of the target into theLocput theLoc into Originset cursor to arrowrepeat until the mouse is upset the loc of the target to the mouseLocend repeatend moveIngredient</script>
</card>
card_7233.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpvisual effect dissolvego to cd help1end mouseUp</script>
</part>
<part>
<id>2</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>87</left>
<top>85</top>
<right>282</right>
<bottom>207</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>3</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>111</left>
<top>225</top>
<right>231</right>
<bottom>273</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<content>
<layer>card</layer>
<id>2</id>
<text>Choose a pizza parlor via the pop-up menu at the top. Drag the toppings on the right you wish to have on your pizza on or off the pizza at the left. The price will be updated using prices for the parlor you have chosen. If you choose another parlor from the pop-up menu, The Pizza Navigator will automatically recalculate the cost.</text>
</content>
<content>
<layer>card</layer>
<id>3</id>
<text>Click to dial parlor named at the top. Uses speaker or modem.</text>
</content>
<name>help3</name>
<script></script>
</card>
card_8926.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpvisual effect dissolvego to cd mainmenuend mouseUp</script>
</part>
<part>
<id>4</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>228</left>
<top>317</top>
<right>382</right>
<bottom>334</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Revision History...</name>
<script>on mouseUpset the hilite of cd btn "Revision History" to trueshow cd fld "Revision History"show cd btn "Revision History"show cd btn "CloseBox"end mouseUp-- ScriptEdit‚Ñ¢ Prefs:Monaco,9,47,24,472,600,64,64,50</script>
</part>
<part>
<id>5</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>209</left>
<top>242</top>
<right>499</right>
<bottom>309</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Revision History</name>
<script>on mouseUpif the shiftKey is down thenset the lockText of me to not the lockText of meend ifend mouseUp</script>
</part>
<part>
<id>6</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>209</left>
<top>226</top>
<right>499</right>
<bottom>242</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>Revision History</name>
<script></script>
</part>
<part>
<id>7</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>209</left>
<top>226</top>
<right>221</right>
<bottom>238</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>19521</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>closeBox</name>
<script>on mouseUplock screenhide cd fld "Revision History"hide cd btn "Revision History"hide meunlock screenend mouseUp-- ScriptEdit‚Ñ¢ Prefs:Monaco,9,47,24,472,600,116,116,50</script>
</part>
<content>
<layer>card</layer>
<id>2</id>
<text><span class="style1">he idea for </span><span class="style2">The Pizza Navigator</span><span class="style1"> was taken from a punch-line from an Apple Corporate Video, </span><span class="style2">The Grey-Flannel Navigator</span><span class="style1">. In the video, our hero, after doing all sorts of amazing things with his 21st century Macintosh (or descendent thereof) arrives home to find an empty refrigerator. Quick as a flash, he goes to his desktop, ‘builds’ a pizza on screen and orders it. It was a cute moment, and I thought later, 'Gee, I could do that...'.This stack is the result. ICONs in this stack were created with Icon Architect, an excellent tool for this task by Jeremy Ahouse and Eric Carlson. This is version 2.03 of this stack. A more elaborate version in SuperCard, currently uploaded to America Online, includes color ingredients.David Drucker AppleLink: DDRUCKER CONNECT: DDRUCKER America Online: DDRUCKER GEnie: D.Drucker CompuServe: 76060,3104</span></text>
(CDRM1080320)(1993).iso/FILES/HYP/C-D/CoolMacStacks.sea/Cool Mac Stacks/Fun and Games/The Pizza Navigator 2.2/BMAP_9384.png){kind=link}
(CDRM1080320)(1993).iso/FILES/HYP/C-D/CoolMacStacks.sea/Cool Mac Stacks/Fun and Games/The Pizza Navigator 2.2/PATs.png){kind=link}